home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 9
/
FM Towns Free Software Collection 9.iso
/
windows
/
tool
/
mopterm
/
nyan.plt
< prev
next >
Wrap
Text File
|
1994-11-16
|
72KB
|
2,614 lines
/* *
* ＮｉｆｔＹ Ａｕｔｏ Ｎａｖｉｇａｔｏｒ（ＮＹＡＮ） *
* *
* MopTermのオ－トパイロットです｡ MopTermに登録してお使い下さい.
* 内部に設定機能を持っていますので，MopTermから起動するだけでOKです｡
* とにかく，何も考えずに起動してみましょう。
* MopTerm/Winのツ－ルバ－に登録すると便利です｡
* *
* 改造，再配付の際は，以下の著作権表示を保存して下さい．
* All Right Reserved, Copyright (c)
* モップ(NIFTY-PFF00570 SDI00717) (Masahiro Kezuka)
* 1991,1992,1993,1994
*
* Patialy Copyrigt(c) 1993 -なる-☆ (PGA01332)
* Patialy Copyrigt(c) 1993 Yama-chan(PEE01244)
*
* *
* 1991年 7月 3日 初版 Ver0.01 *
* 1991年 7月 7日 ２版 Ver0.02 *
* 1991年 7月 13日 ３版 Ver0.03 *
* 1991年 8月 3日 ４版 Ver0.04 complete version *
* 1992年 9月 18日 ５版 Ver0.05 for nifty new spec *
* 1993年11月 22日 6 版 Ver0.06 for windows *
* 1993年12月 18日 7 版 Ver0.07 connect Sub Module
* 1994年 4月 1日 8 版 Ver0.08 for NIFTY New Version(Mail header)
* */
var modem[80]; /* modem 種別 /NoMNPAT/MNPAT/会社名モデム機種名 */
var telno[30]; /* 電話番号 */
var telty[10]; /* 回線の種別 1200|2400|2400T */
var telno2[30]; /* 電話番号(Retry) */
var telty2[10]; /* 回線の種別(Retry) 1200|2400|2400T */
var line[5]; /* プッシュ回線か,ダイヤル回線か T/P */
var id[9]; /* NIFTYのユーザID */
var pass[9]; /* パスワード */
var logd[20]; /* ログ格納用ディレクトリー(最後の\はなし) */
var forum[1000]; /* フォーラム名( ｢,｣ で複数) */
var hp[1000]; /* HP ID/ＨＰパスワード/HP名( ｢,｣ で複数) */
/***********************************************************************
*
* 共通の処理ルーチン
*
***********************************************************************/
/* パラメタで指定されたファイルを削除する */
%delfile{ [ filename ]
dispoff({Yes});
command({del }|filename);
dispoff({No})
};
/* パラメタで指定されたディレクトリへ移動する(｢A:\｣と｢A:｣の両方が可能) */
%setcdir2 {[dir]
%dir2 @case(@nochar(dir),
2,{im(dir|{\})},,{im(dir)});
setcdir(dir2)
};
/* 指定されたディレクトリー配下に,第2パラメターで指定されたディレクトリを
(もし,無ければ)作成する｡ */
%mkdir{ [ dir , name ]
dispoff({Yes});
case(@setcdir2(dir), {Yes}, {
command({mkdir } | name )},
{No},{select({装置(} | dir | {)が使えませんが?},99999,{},
{ もう一回やってみる },{mkdir(dir,name)},
{ 自動処理をやめる },{stop},
{ 無視して先の処理をやる },{})
});
dispoff({No})
};
/* 第1パラメタのファイルの中身を 第2パラメタのファイルにコピーする */
%copyfile{[OldName,NewName]
dispoff({Yes});
command({copy }| OldName | { } | NewName);
dispoff({No})
};
/* オープンされているメモを全て, クローズする */
%CloseAllMemo{
case(@mcheck !=0,
{Yes},{ loop({ mclose(2);
im(@mcheck !=0)
})
})
};
/***********************************************************************
*
* 自動的に，Ｎｉｆｔｙに接続し，目的の処理を行う
*
***********************************************************************/
%autoacc2{
/***********************************************************************
*
* ＲＯＡＤ１，ＲＯＡＤ２の各タイプに応じて，接続処理を行う
*
***********************************************************************/
%type00 {
type({.00+});
wait(20 ,type00, /* 20秒待って，なにもこないなら，00+ */
{46+} ,type00, /* 46+ なら 00+ */
{+\n00+} ,type00, /* 00+ なら 00+ */
{Enter} , /* Enter C.. なら 終わり */
);
};
%Road2c {
type({C NIF\n});
wait(20,{stop},{*},Road2c,{Connect},)
};
/* road2 or road3 */
%Road2p {
wait(4,{
type({@P\n});
wait(20,{stop},{*},); /* *を待つ */
},{*});
Road2c;
};
%callrd11 {[telno]
%MNPOff @case(@getchar(modemtype,6,1),
{m},{ im({\N0}) },
{n},{ im({} ) } );
display({ROAD1/1200(} | telno | {)に電話をかけます\n});
baud(1200);
dialone({AT} | @head(modem,{/})| MNPOff |
{D} | line | { } | telno ,
{type00;im({No})},{im({Yes})})
};
%callrd12 {[telno]
display({ROAD1/2400(} | telno | {)に電話をかけます\n});
baud(maxbaud);
dialone({AT} | @head(modem,{/}) |@body(modem,{/},{/}) | {D} |
line | { } | telno ,
{type00;im({No})},{im({Yes})})
};
%callrd2 {[telno]
display({ROAD2/2400(} | telno | {)に電話をかけます\n});
baud(maxbaud);
dialone({AT} | @head(modem,{/}) |@body(modem,{/},{/}) | {D} |
line | { } | telno ,
{Road2p;im({No})},{im({Yes})})
};
%callone{[telty,telno]
case(telty,
{1200}, {callrd11(telno)},
{2400}, {callrd12(telno)},
{2400T},{callrd2(telno)} ,
,{im({Yes})} )
};
%callnif{
%modemtype @tail(modem,{_});
%maxbaud @getchar(modemtype,1,5);
dispecho({No});
/* MNPなら, 送信文書はエコーバックを表示する */
case(@getchar(modemtype,6,1),{m},{dispecho({Yes})});
loop({
case(@callone(telty,telno),
{Yes},{ callone(telty2,telno2)
},{No},{im({No})
})
})
};
/***********************************************************************
*
* 未読のメールをダウンする
*
***********************************************************************/
%GoMail{
type({MAIL\n});
wait(20,{stop},
{\n＞},{
type({SET MENU OFF\n});
wait(30,{stop},{\nMAIL>})
},{\nMAIL>});
type({SET PAGE OFF\n});
wait(30,{stop},{\nMAIL>})
};
%Mail2 {
loop({
wait(30,{stop},
{終了)\n＞} ,{type({\n}); im({Yes})},
{終了)\n：} ,{type({2\n});im({Yes})},
{\naction:} ,{type({SAVE\n});im({Yes})},
{終了）\n＞} ,{im({No})},
{\nMAIL>} ,{im({No})}
)
})
};
%MailDown {
wait(20,{stop},{\n＞},);
GoMail;
mkdir(logd,{MAIL});
receive(logd | {\mail\mail.log});
type({READ NEW\n});
Mail2;
stoprec;
};
/***********************************************************************
*
* ＨＰの未読をダウンする
*
***********************************************************************/
%GoHP{[name,pass]
type({GO HP\n});
wait(30,{stop},{\n＞},);
type({1\n});
wait(30,{stop},{\n：},);
type(name|{\n});
wait(100,{stop},
{該当する利用者の},{
wait(30,{stop},{\n＞},);
im({No})
},{\nHP>},{
type({SET PAGE OFF\n});
wait(100,{stop},{\nHP>},,);
im({Yes})
},{\n：},{ type(pass|{\n});
wait(100,{stop},{\nHP>},,);
type({SET PAGE OFF\n});
wait(100,{stop},{\nHP>},,);
im({Yes})
});
};
%oneHP {[name,pass,fname]
/* down all message */
delfile(fname | {.tlt});
receive(fname | {.tlt});
GoHP(name,pass);
test(,,{\nHP>},{
stoprec;
receive(fname | {.log});
type({READ NEW\n}); /* type first boad number */
wait(60,{stop},
{\nHP>} ,,
{◆指定日付以降},{wait(60,{stop},{\nHP>},)}
);
stoprec;
case(id = name,
{Yes},{
delfile( fname | {.usr});
receive(fname | {.usr});
type({GUEST\n});
wait(100,stop,{\nHP>});
stoprec;
})
},,{ stoprec
})
};
%HP{
var hp2[200];
mkdir(logd,{HP});
hp2 := hp;
loop({
%hpset @head(hp2,{,});
hp2 := @body(hp2,{,});
oneHP( @head(hpset,{/}) ,
@body(hpset,{/},{/}),
logd | {\hp\} | @tail(hpset,{/}) );
im( hp2 <> {} )
});
};
/***********************************************************************
*
* フォーラムの未読をダウンロードする
*
***********************************************************************/
%GoForum{[fname]
%SetMode{
type({SET PAGE OFF\n});
wait(30,{stop},{\nFORUM>});
type({SEND OFF\n});
wait(30,{stop},{\nFORUM>})
};
type({GO }| fname |{\n});
loop({
wait(30,{stop},
{終了)\n＞} ,{type({\n});im({Yes})},
{◆番号又はコマンドを入力},
{
wait(30,{stop},{\n＞},);
im({No})},
{◆現在このフォーラムは},
{
wait(30,{stop},{\n＞},);
im({No})},
{－保守作業の為},
{
wait(30,{stop},{\n＞},);
im({No})},
{終了\n＞} ,{
type({SET MENU OFF\n});
wait(30,{stop},{\nFORUM>});
SetMode;
im({No})},
{\nFORUM>} ,{
SetMode;
im({No})}
)
});
};
%oneForum { [ fname ]
%ForumDir logd | {\} | fname;
%readall{
%Down3{[boadn]
stoprec;
receive( ForumDir | {\MES} | boadn | {.log});
readall;
};
wait(10000,{stop},{◆次頁はありません◆},,
{MES( 1):},{Down3({01})},{MES( 2):},{Down3({02})},
{MES( 3):},{Down3({03})},{MES( 4):},{Down3({04})},
{MES( 5):},{Down3({05})},{MES( 6):},{Down3({06})},
{MES( 7):},{Down3({07})},{MES( 8):},{Down3({08})},
{MES( 9):},{Down3({09})},{MES(10):},{Down3({10})},
{MES(11):},{Down3({11})},{MES(12):},{Down3({12})},
{MES(13):},{Down3({13})},{MES(14):},{Down3({14})},
{MES(15):},{Down3({15})},{MES(16):},{Down3({16})},
{MES(17):},{Down3({17})},{MES(18):},{Down3({18})},
{MES(19):},{Down3({19})},{MES(20):},{Down3({20})}
);
};
mkdir(logd , fname);
delfile( ForumDir | {\title} | {.log});
receive( ForumDir | {\title} | {.log});
GoForum(fname);
test(,,{\nFORUM>},{
type({MES\n});
wait(50,{stop},{\n＞});
type({MREAD\n\n});
readall;
stoprec;
wait(30,{stop},{\n＞},);
type({SEND ON\n});
wait(30,{stop},{\n＞},)
},,{ stoprec;
})
};
%Forum{
var f2[1000];
f2 := forum; /* forum= ｢FORUM1,FORUM2,,,｣ */
loop({
%fname @head(f2,{,});
f2 := @body(f2,{,});
oneForum( fname );
im( f2 <> {} )
});
};
/***********************************************************************
*
* Ｎｉｆｔｙの課金情報を見る｡
*
***********************************************************************/
%bill{
delfile( logd | {\BILL.LOG});
receive( logd | {\BILL.LOG});
type({GO BILL\n});
wait(30,{stop},{\n＞},);
type({2\n});
wait(30,{stop},{了)\n＞},);
stoprec;
};
/***********************************************************************
*
* フォーラム, HP , メールに, メッセージをアップする｡
*
***********************************************************************/
%UpText{
var IndexLine[82];
%FNameTop logd | {\UP\};
%IndexFName FNameTop | {INDEX.TXT}; /* 制御ファイル */
%SaveFName FNameTop | {SAVE.TXT}; /* 作業用のファイル*/
/* 制御ファイルから, 予約(予)されたファイルを一つ取り出し
アップ処理を行う */
%UpOne{
%UpBody{
%fno @head(@getchar(IndexLine,4,3),{ });
send( FNameTop | {MES} | fno | {.TXT});
type({\n/E\n});
wait(300,{stop},{\n：},);
type({2\n});
loop({ /* メールの不在通知のために */
wait(30,{stop},
{処理）\n＞} ,{type({\n});im({Yes})},
{\n：} ,{im({No})}
)
});
type({1\n}); /* 2 :For Debug */
};
%UpForum{
%ResNum @getchar(IndexLine,26,5);
GoForum(@getchar(IndexLine,14,8));
type({MES }| @getchar(IndexLine,23,2) |{\n});
wait(30,{stop},{\nCCS(N)>},);
case( ResNum ,{ }, {
type({SAY\n});
wait(30,{stop},{\n：},);
type({1\n});
},,{
type({RE } | (ResNum+0) |{\n});
});
wait(30,{stop},{/E）\n},);
type({SUB:} | @getchar(IndexLine,32,80) );
UpBody;
wait(130,{stop},{\nCCS(N)>},);
type({SEND ON\n});
wait(30,{stop},{\nCCS(N)>},);
};
%UpHP{
%name @head(@getchar(IndexLine,14,8),{ });
%HPData @tail(@head(hp,{/} | name),{,});
%HPID @head(HPData,{/});
%HPPass @tail(HPData,{/});
/*display({｢}|HPID|{,}|HPPass|{\n});*/
GoHP(HPID,HPPass);
type({WRITE\n});
wait(30,{stop},{\n：},);
type(@getchar(IndexLine,32,80) );
wait(30,{stop},{\n：},);
type({1\n});
wait(30,{stop},{/E)\n},);
UpBody;
wait(130,{stop},{\nHP>},);
};
%UpMail{
GoMail;
type({COM\n});
wait(30,{stop},{/E）\n},);
type({SUB:}| @getchar(IndexLine,32,80));
type({TO:} | @getchar(IndexLine,14,8) | {\n});
wait(30,{stop},{\n},);
/*type({TO:AAA00000\n}); /* echo back me */
/*wait(30,{stop},{\n},); */
/*type({FROM:ハンドル名\n}); ﾊﾝﾄﾞﾙを入れる場合用 */
wait(30,{stop},{\n},);
UpBody;
wait(130,{stop},{\nMAIL>},);
};
var Return[4];
delfile(SaveFName);
Return := {No};
fopen(IndexFName);
loop({ IndexLine := @fread;
case(@getchar(IndexLine,1,2),
{予},{ case(@getchar(IndexLine,8,5),
{Forum},UpForum,
{HP },UpHP,
{Mail },UpMail);
IndexLine := {済} | @getchar(IndexLine,3,80);
loop({ write(SaveFName,IndexLine );
IndexLine := @fread;
im(IndexLine <> {});
});
copyfile(SaveFName,IndexFName);
Return := {Yes};
im({No})
},{保},{write(SaveFName,IndexLine );
im({Yes})
},{済},{write(SaveFName,IndexLine );
im({Yes})
},,{ im({No})
})
});
fclose;
im(Return)
};
/* 前回, アップしたファイル(済)を削除する */
%DelOldText{
var AnyWrite[3];
AnyWrite:={No};
delfile(SaveFName);
fopen(IndexFName);
loop({ IndexLine := @fread;
case(@getchar(IndexLine,1,2),
{予},{ write(SaveFName,IndexLine );
AnyWrite:={Yes};
im({Yes})
},{保},{write(SaveFName,IndexLine );
AnyWrite:={Yes};
im({Yes})
},{済},{%fno @head(@getchar(IndexLine,4,3),{ });
delfile( FNameTop | {MES} | fno | {.TXT});
im({Yes})
},,{ im({No})
})
});
fclose;
case(AnyWrite,
{Yes},{copyfile(SaveFName,IndexFName)},
{No} ,{delfile(IndexFName)} )
};
/* UpText Main */
case(@filechk(IndexFName),
{Yes},DelOldText);
case(@filechk(IndexFName),
{Yes},{ loop(UpOne) });
};
/***********************************************************************
*
* メイン処理 Call Telephone and Send Id ,Password
*
***********************************************************************/
stopbit(1);
xon({Yes});
rscs({Yes});
click({No});
nattou({Yes});
account(logd | {\ACCOUNT.TXT},{NIFTY-Serve});
footnote({NIFTY-Serveへ電話をかけています｡});
callnif;
footnote({NIFTY-Serveの前処理をしています｡});
case(id,{},{
select({ﾕｰｻﾞIDの設定がありません｡後は手動で?},10,stop,
{やります},stop,{電話を切ります},{discon;stop})
});
wait(20,{stop},{Connection-ID --->},);
type({SVC\n});
wait(20,{stop},{Enter User-ID --->},);
type( id | {\n}); /* AAA00000は貴方のユーザIDに変更して下さい */
wait(20,{stop},{Enter Password --->},);
case(pass,
{},{ footnote({パスワードをキーボードから入れて下さい});
/*ﾊﾟｽﾜｰﾄﾞを,直接入力する */
sendtype({Ch/2});
chat({Yes});
wait(300,{stop},{ようこそ},);
chat({No});
sendtype({Line});
footnote({前置きの処理をしています｡});
},
,{type(pass | {\n})});
setcdir2(logd);
delfile( logd | {\title} | {.log});
receive(logd | {\title} | {.log});
loop({
wait(30, {stop},
{\n＞}, {type({\n});im({Yes})},
{TOP},{im({No})}
)
});
wait(30,{stop},{\n＞},);
stoprec;
/* read mail */
footnote({メールの受信処理をしています｡});
type({MCHECK\n});
wait(30, {stop},
{\n＞}, ,
{未読分},MailDown
);
case( hp<>{},{Yes},{
footnote({ＨＰの受信処理をしています｡});
HP /* read hp */
});
case( forum<>{},{Yes},{
footnote({フォーラムの受信処理をしています｡});
Forum; /* read forum */
});
footnote({文書のアップ処理をしています｡});
UpText; /* Upload Forum,Hp,Mail */
/* 課金情報の表示 */
/* footnote({NIFTYの課金情報を参照しています。});
bill;*/
footnote({NIFTYの終了処理をしています｡});
type({bye\n});
wait(30,,{ました。});
wait(3);
discon;
footnote({});
}; /* end of autoacc2 */
/* 残り容量を確認してから, autoacc2を行う */
%autoacc{
case(@diskrem < (50*1024),
{Yes},{
select({このディスクの残り容量(} | (@diskrem / 1024)
| {Kbyte)では不足です｡}
,30,, {確認}, )
},{No},autoacc2
)
};
/***********************************************************************
*
* ダウンロードした，文書を読む処理
*
***********************************************************************/
/***********************************************************************
*
* フォーラムの会議室, HPの内容, MAILの内容を一覧,表示,選択可能とする｡
* fname : 会議室のログのファイル名
* type : Form:ファーラムの会議室ログ
* HP : HPのログ
* Mail:メールのログ
* ForumN: フォーラム名,HP名
*
************************************************************************/
%boadmenu
{[fname,type,ForumN]
var linenum[8]; /* 表示中メッセージの行番号(MEMO.1内の一覧での行位置) */
var FoType[8]; /* Stock :Stock会議室 Cyclic:Cyclic会議室 */
/* タイトルを抜き出して，メモに一行のに入れる処理 */
%setline {
var item[92];
case(type,
{Forum},{
case(FoType,
{Stock},{
item:=@ftell | { } | @getchar(line,1,3);
%line2 @fread;
case(@getchar(line2,27,2),
{へ},{item:=item | @getchar(line2,23,4)},
,{item:=item | { }}
);
item:=item | @getchar(line,19,80);
},{Cyclic},{
item:=@ftell | { } | @getchar(line,1,5);
%line2 @fread;
case(@getchar(line2,29,2),
{へ},{item:=item | @getchar(line2,23,6)},
,{item:=item | { }}
);
item:=item | @getchar(line,21,80);
});
madd(2,item);
},{HP},{
item:=@ftell | { } | @getchar(line,1,3);
item:=item | { } |@getchar(line,7,14) |
@getchar(line,23,9) | @getchar(line,37,50);
madd(2,item);
},{Mail},{
item:=@ftell;
%line2 @fread;
item:=item | @getchar(line,4,17) | @getchar(line,23,8) |
@getchar(line,32,6) | { } | @getchar(line2,11,43);
madd(2,item);
});
};
/* オリジナルの題名から, 応答用の題名を作成する関数 */
%resTitle{[org]
case(@getchar(org,1,3),
{Re:},{im( {Re*2:} | @getchar(org,4,80) )},
{re:},{im( {Re*2:} | @getchar(org,4,80) )},
{RE:},{im( {Re*2:} | @getchar(org,4,80) )},
{Re*},{ %after @getchar(org,4,80);
%num @head(after,{:});
im( {Re*} | (num+1) | {:} |
@body(after,{:},) )
},
,{im( {Re:} | org )}
)
};
/* 送信用の文書を，制御ファイルに登録する */
%SetIndex{
var fno[5];
var IndexLine[82];
var Wtitle[82];
var Wtitle2[82];
%Wtype
@select({このメッセージを送信予約しますか？｡}
,99999,{},
{送信予約する}, {im({予})},
{送信予約しないが保存する}, {im({保})},
{保存しないで捨てる｡}, {im({捨})},
{再度，編集に戻る｡}, {im({戻})}
);
case(Wtype ,
{捨},{im(Wtype)},
{戻},{im(Wtype)},
,{ /* Wtype = 0 or Wtype = 1 */
%Line @memo(2,linenum,1);
case(type,
{Forum},{
IndexLine := {Forum:} |
@getchar(ForumN|{ },1,8) | {/} |
@head(@tail(fname,{MES}),{.}) | {/} |
@case(FoType,{Stock},{
im({00}|@getchar(Line,11, 3))},
{Cyclic},{getchar(Line,11,5)}) ;
Wtitle := @case(FoType,
{Stock} ,{getchar(Line,38,80)},
{Cyclic},{getchar(Line,41,80)});
},{HP},{
IndexLine := {HP :} |
@getchar(ForumN|{ },1,8) |
{ };
Wtitle := @getchar(Line,39,80);
},{Mail},{
IndexLine := {Mail :} |
@getchar(Line,26,8) |
{ };
Wtitle := @getchar(Line,41,80);
});
Wtitle := @getchar(@resTitle(Wtitle),1,80);
loop({
Wtitle2 :=@input({題名を入れて下さい。},,Wtitle) ;
case(@nochar(Wtitle2)>40,{Yes},{
footnote({題名は, 全角20文字までです});
im({Yes})
},,{im({No})
});
});
footnote({});
Wtitle := @case( Wtitle2 , {} ,{im(Wtitle)},
,{im(Wtitle2 | {\n})});
fno := 0;
mkdir(logd , {UP});
%nametop logd | {\UP\};
loop({ fno := fno+1;
filechk(nametop | {MES} | fno | {.txt})
});
fno := @getchar(fno | { },1,3);
IndexLine := Wtype | { } | fno | { } | IndexLine |
{:} | Wtitle ;
write( nametop | {INDEX.TXT}, IndexLine);
im( nametop | {MES} | fno | {.txt});
})
};
/* メッージを上半分に表示，下半分でコメント書けるようにする
メモ3がメッセージ, メモ4がコメント */
%responce{
CloseAllMemo;
mopen(3,0,21,639,250); /* 見るだけの 画面 */
mclose(1);
madd(4,{});
mset(4,{w});
mopen(4,0,251,639,459); /* コメント用 画面 */
footnote({終了},{b});
loop( {waitx(1000);
im(@xtype!=2 && @xtype!=101 && @xtype!=201)
});
case(@memo(4) <> {},
{Yes},{
%OutFile @SetIndex;
CloseAllMemo;
mset(4,{n});
case(OutFile ,
{捨},{},
{戻},responce,
,{mwrite(OutFile,4)}
);
},,{
CloseAllMemo;
mset(4,{n});
})
};
/* メッセージはメモ2を使用して表示, PF2で前, PF3で後, PF1で終了する。*/
%dispone{
var cont[4];
loop({ cont := {Yes};
%st @getchar(@memo(2,linenum,1),1,8);
%len @getchar(@memo(2,linenum+1,1),1,8)-st;
case( len > 0 ,
{Yes},{
mclear(3);
mclear(4);
mread(fname,3,st,len);
mset(3,{r});
mopen(3,0,21,639,459); /* 見るだけの画面 */
footnote({終了 前 次 応答},
{b});
loop( {waitx(1000);
im(@xtype<100)
});
case( @xtype,
101, {cont := {No}},
201, {cont := {No}},
102, {linenum := linenum-1},
202, {linenum := linenum-1},
103, {linenum := linenum+1},
203, {linenum := linenum+1},
104, {responce},
204, {responce}
);
case(@mcheck != 0, {Yes}, { mclose(3) });
CloseAllMemo;
});
im( cont && len>0)
});
mset(3,{n})
};
/* メッセージのタイトルを読みこみ，メモ１にタイトル一覧を作成する */
mclear(2);
madd(2,{99999999 } |
{★表示したいメッセージを左ダブルクリック}|
{(又はカーソル移動+PF2)してね★\n});
fopen(fname);
/* ｢/｣の位置で,タイトル行を見分けます｡ */
%sulashP @case(type,
{Forum},{
case(@getchar(@read(fname,1,1),6,1)={/} ||
@getchar(@read(fname,2,1),6,1)={/} ,
{Yes},{ FoType:={Cyclic};
im(6)
},, {FoType:={Stock};
im(4)
})
},
{HP}, {im(9)},
{Mail}, {im(43)} ); /* change 94/04/01 */
footnote({ログの取り出しをしています。ちょっと，お待ちを！});
crchg({No});
loop({
%line @fread(sulashP,{/});
setline;
im(line <> {})
});
crchg({Yes});
fclose;
/* 一覧を表示し，メッセージを選択してもらう */
linenum:=0;
mset(2,{r});
loop({
mopen(2,0,21,639,459);
curline(linenum);
footnote({終了表示},{b});
loop({waitx(1000);
im(@xtype!=2 && @xtype<100)
});
linenum := @xlinenum;
case(@xtype,
2,{
CloseAllMemo;
dispone; /* 選択されたメッセージの表示 */
im({Yes})},
101,{im({No}) },
102,{
CloseAllMemo;
dispone; /* 選択されたメッセージの表示 */
im({Yes})},
201,{im({No}) },
202,{
CloseAllMemo;
dispone; /* 選択されたメッセージの表示 */
im({Yes})}
)
});
case(@mcheck != 0, {Yes}, { mclose(3) });
CloseAllMemo;
mset(2,{n});
}; /* end of log menu */
%dispFile{[filename]
case(@filechk(filename),{Yes},{
mclear(2);
mread(filename,2);
mset(2,{r});
mopen(2,0,21,639,459);
footnote({終了},{b});
loop({waitx(1000);
im(@xtype!=2 && @xtype<100)
});
case(@mcheck != 0, {Yes}, { mclose(3) });
mset(2,{n})
},{No},{
select({受信済みのﾌｧｲﾙがありません。},10,{},{確認},)
})
};
%readdoc{
var boadnum[10];
%setdocm{
var f2[1000];
%oneHP{[name]
%name2 @getchar(name | { },1,8);
madd(1,{＜}|name2|{＞ HPの最新オープンニング\n});
madd(1,{＜}|name2|{＞ HPの内容 \n});
case(@filechk( logd | {\HP\} | fname | {.USR}),{Yes},{
madd(1,{＜}|name2|{＞ HPの最近の参照者\n})
})
};
%oneBoad{
%line @fread(23,{/});
case(line<>{},{Yes},{
madd(1, {＜} | name2 | {＞ フォーラム } |
@getchar(line,1,2) |
{ 会議室 ：} |
@getchar(line,29,80) );
im({Yes}) /* return Yes for continue */
},{No},{im({No})}) /* return No for end of file */
};
%oneForum{[name]
%name2 @getchar(name | { },1,8);
madd(1,{＜}|name2|{＞ フォーラムのオープンニング\n});
fopen( logd | {\} | name | {\title} | {.log});
loop({oneBoad});
fclose;
};
/* setdocm main start */
mclear(1);
madd(1,{ ★ 読みたい物を左ダブルクリック}|
{(又はカーソル移動+PF2)で選択して下さい ★ \n});
case(@filechk( logd | {\TITLE.LOG}),
{Yes},{ madd(1,{ }|
{最新のNifty オープニングメッセージ \n})});
case(@filechk( logd | {\BILL.LOG}),
{Yes},{ madd(1,{ }|
{最新のNifty 課金情報（３か月分文）\n})});
case(@filechk( logd | {\ACCOUNT.TXT}),
{Yes},{ madd(1,{ }|
{アクセス履歴情報\n})});
case(@filechk(logd | {\MAIL\MAIL.LOG}),
{Yes},{ madd(1,{ }|
{受信したメールの内容 \n})});
f2 := hp;
loop({
%fname @tail(@head(f2,{,}),{/});
f2 := @body(f2,{,});
case(@filechk( logd | {\HP\} | fname | {.TLT}),
{Yes},{oneHP( fname )});
im( f2 <> {} )
});
f2 := forum;
loop({
%fname @head(f2,{,});
f2 := @body(f2,{,});
case(@filechk( logd | {\} | fname | {\title} | {.log}),
{Yes},{oneForum( fname )});
im( f2 <> {} )
});
}; /* end of setdocm */
%dispboad{
%line @memo(1,boadnum,1);
%type @getchar(line,14,14);
%name @getchar(line,3,8);
case(type,
{最新のNifty オ},{dispFile( logd | {\TITLE.LOG})},
{最新のNifty 課},{dispFile( logd | {\BILL.LOG})},
{アクセス履歴情},{dispFile( logd | {\ACCOUNT.TXT})},
{受信したメール},{
%filename logd | {\MAIL\MAIL.LOG};
case(@filechk(filename),{Yes},{boadmenu(filename,{Mail},name)},
,{select(
{受信済のメールがありません。},10,{},{ＯＫ？},)
})
},
{HPの最新オープ},{dispFile( logd | {\HP\} | name | {.TLT})},
{HPの内容 },{
%filename logd | {\HP\} | name | {.LOG};
case(@filechk(filename),{Yes},{boadmenu(filename,{HP},name)},
,{select({このHPには}|
{受信済のメッセージがありません。},10,{},{ＯＫ？},)
})
},
{HPの最近の参照},{dispFile( logd | {\HP\} | name | {.USR})},
{フォーラムのオ},{dispFile( logd | {\} | name | {\TITLE.LOG})},
/*会議室*/ ,{
case(@getchar(line,14,10),{フォーラム},{
%num @case(@getchar(line,25,1),
{ },{im({0}|@getchar(line,26,1))},
,{getchar(line,25,2)}
);
%filename logd | {\} | name | {\} |
{MES} | num | {.LOG};
case(@filechk(filename),{Yes},{boadmenu(filename,{Forum},name)},
,{select({この会議室には，}|
{受信済のメッセージがありません。},10,{},{ＯＫ？},)
})
})
}) /* end of case */
};
footnote({受信文書の一覧を作成中です。});
setdocm;
mset(1,{r});
boadnum :=0;
loop({
mopen(1,0,21,639,459);
curline(boadnum);
footnote({終了表示},{b});
loop( {waitx(1000);
im(@xtype!=1 && @xtype<100)
}
);
boadnum := @xlinenum;
case(@xtype,
1,{ CloseAllMemo;
dispboad;
im({Yes})
},
101,{ im({No}) },
102,{ CloseAllMemo;
dispboad;
im({Yes})
},
201,{ im({No}) },
202,{ CloseAllMemo;
dispboad;
im({Yes})
},
,{ CloseAllMemo;
im({Yes})
}
)
});
case(@mcheck != 0, {Yes}, { mclose(3) });
CloseAllMemo;
mset(2,{n});
mset(1,{n});
footnote({});
}; /* end of read doc */
/************************************************************************
*
* 送信文書の作成／更新処理
*
*************************************************************************/
%senddoc{
var IndexLine[82];
%FNameTop logd | {\UP\};
%IndexFName FNameTop | {INDEX.TXT}; /* 制御ファイル */
%SaveFName FNameTop | {SAVE.TXT}; /* 作業用のファイル*/
/* set destination (21byte)
*/
%SetDest{
%DestMail{
%name @input({送信先のＩＤを入れて下さい。}) ;
case( @nochar(name)!=8,{Yes},{
footnote({｢}|name|{｣は 英数字8文字でありません});
DestMail
},,{
footnote({});
im({Mail :} | name | { })
})
};
%DestHP{
%name @input({ＨＰの名前を入れて下さい。}) ;
case( hp = @head(hp,{/}|name),{Yes},{
footnote({｢}|name|{｣は 登録されていません});
DestHP
},,{
footnote({});
im({HP :} | @getchar(name|{ },1,8)
| { })
})
};
%DestForum{
var boad[10];
var org[10];
%name @input({フォーラムの名前を入れて下さい。}) ;
case( forum = @head(forum,name),{Yes},{
footnote({｢}|name|{｣は 登録されていません});
DestForum
},,{
%ans @input({｢会議室番号｣又は｢会議室番号,ｺﾒﾝﾄ先｣}) ;
case(ans=@head(ans,{,}),
{Yes},{ boad:=ans+0;
org :={ }
},{No},{boad:=@head(ans,{,})+0;
org :=@head(ans,{,})+0
});
case( boad<1 || boad>20 ||
(org<>{ }) && (org<1 || org>99999),
{Yes},{
footnote({会議室番号, ｺﾒﾝﾄ先がおかしいです});
DestForum;
},,{
footnote({});
case(@nochar(boad),1,{boad:={0}|boad});
case(@nochar(org), 1,{org:={0000}|org},
2,{org:={000} |org},
3,{org:={00} |org},
4,{org:={0} |org});
im({Forum:} |
@getchar(name|{ },1,8) | {/} |
boad | {/} | org )
});
})
};
select({何に使いますか？}
,99999,{im({})},
{ メール }, DestMail,
{ ＨＰへのアップ }, DestHP,
{ 会議室へのアップ }, DestForum,
{ メインメニューに戻る }, {im({})});
};
%ChgIndex{[Proc]
var WorkLine[82];
/*display({Change Index 1}|SaveFName);*/
delfile(SaveFName);
/*display({Change Index 2}|SaveFName);*/
fopen(IndexFName);
loop({
WorkLine := @fread;
case(@getchar(IndexLine,4,3) = @getchar(WorkLine,4,3),
{No},{ write(SaveFName,WorkLine );
im({Yes})
},{Yes},{ Proc;
im({Yes})
});
im(WorkLine<>{})
});
fclose;
copyfile(SaveFName,IndexFName);
};
%DelDoc{
ChgIndex({
%fno @head(@getchar(IndexLine,4,3),{ });
delfile( FNameTop | {MES} | fno | {.TXT});
})
};
%SetDoc{[type]
ChgIndex({
IndexLine := type | @getchar(IndexLine,3,80);
write(SaveFName,IndexLine );
})
};
%SetTDoc{
%Wtitle @getchar(IndexLine,32,40);
%Wtitle2 @input({題名を入れて下さい。},,Wtitle) ;
case( Wtitle2 <>{} && (Wtitle2 | {\n})<>Wtitle,{Yes},{
ChgIndex({
IndexLine := @getchar(IndexLine,1,31) |
Wtitle2 | {\n};
write(SaveFName,IndexLine );
})
})
};
%SetDDoc{
%Dest @SetDest;
case( Dest<>{} && Dest<>@getchar(IndexLine,8,23),{Yes},{
ChgIndex({
IndexLine := @getchar(IndexLine,1,7) |
Dest | @getchar(IndexLine,31,80);
write(SaveFName,IndexLine );
})
})
};
%UpdDoc{
%fno @head(@getchar(IndexLine,4,3),{ });
%fname FNameTop | {MES} | fno | {.TXT};
mclear(2);
mread(fname,2);
mset(2,{w});
mopen(2,0,21,639,459);
footnote({更新破棄},{b});
loop( {waitx(1000);
im(@xtype!=2 && @xtype!=101 && @xtype!=201 &&
@xtype!=102 && @xtype!=202)
});
%endtype @xtype;
CloseAllMemo;
mset(2,{n});
case( endtype==101 || endtype==201,{Yes},{
mwrite(fname,2)
})
};
%OneDoc{
case(IndexLine<>{},{Yes},{
CloseAllMemo;
select({どういう処理を行いますか？ ：}|
@head(@getchar(IndexLine,30,40),{\n})
,99999,{},
{ 削除する }, DelDoc,
{ 送信を保留しておく }, {SetDoc({保})},
{ 次回の送信を予約する }, {SetDoc({予})},
{ 題名を変更する }, SetTDoc,
{ あて先を変更する }, SetDDoc,
{ 文書内容を変更する }, UpdDoc,
{ 何もしないで戻る }, )
})
};
%OldDoc{
case(@filechk(IndexFName),
{No},{
select({作成済の送信文書がありません｡}
,20,{}, { 確認 }, ,)
},{Yes},{
loop({
mclear(1);
mread(IndexFName,1);
mset(1,{r});
mopen(1,0,21,639,459);
footnote({終了選択},{b});
loop( {waitx(1000);
im(@xtype!=1 && @xtype<100)
}
);
IndexLine := @memo(1,@xlinenum,1);
case(@xtype,
1,{
OneDoc;
im({Yes})},
102,{
OneDoc;
im({Yes})},
202,{
OneDoc;
im({Yes})},
101,{im({No}) },
201,{im({No}) },
,{CloseAllMemo;
im({Yes}) }
)
});
case(@mcheck != 0, {Yes}, { mclose(3) });
CloseAllMemo;
mset(2,{n});
mset(1,{n});
footnote({});
})
}; /* end of Old Doc */
%NewDoc2{[Dest,Title]
var fno[10];
var endtype[3];
madd(1,{});
mclear(2);
madd(2,{});
mset(2,{w});
mopen(2,0,21,639,459);
loop({
footnote({終了},{b});
loop( {waitx(1000);
im(@xtype!=2 && @xtype!=101 && @xtype!=201)
});
footnote({});
endtype :=@select({このメッセージを送信予約しますか？｡}
,99999,{},
{送信予約する}, {im({予})},
{送信予約しないが保存する}, {im({保})},
{保存しないで捨てる｡}, {im({捨})},
{再度，編集に戻る｡}, {im({戻})}
);
im(endtype = {戻})
});
CloseAllMemo;
mset(2,{n});
case( endtype={予} || endtype={保} ,{Yes},{
fno := 0;
mkdir(logd , {UP});
loop({ fno := fno+1;
filechk(FNameTop | {MES} | fno | {.txt})
});
fno := @getchar(fno | { },1,3);
IndexLine := endtype | { } | fno | { } | Dest |
{:} | Title | {\n};
write( IndexFName , IndexLine);
%fname FNameTop | {MES} | fno | {.TXT};
mwrite(fname,2);
});
}; /* end of New Doc2 */
%NewDoc{
var Title[82];
%Dest @SetDest;
case(Dest<>{},{Yes},{
loop({
Title :=@input({題名を入れて下さい。});
case(@nochar(Title)>40,{Yes},{
footnote({題名は, 全角20文字までです});
im({Yes})
},,{im({No})
});
});
footnote({});
case(Title<>{},{Yes},{
NewDoc2(Dest,Title);
})
})
};
/* senddoc main start */
select({どういう処理を行いますか？}
,99999,{},
{ 既存の送信文書の再処理 }, OldDoc,
{ 新しい送信文書の作成 }, NewDoc,
{ メインメニューに戻る。 }, {} )
}; /* end of senddoc */
/************************************************************************
*
* 設定処理ルーチン群
*
*************************************************************************/
%setmodem{
/* #MODEMX.PLP;*/
%SNDMSG{[FileName]
};
%setAT {
var type[10];
SNDMSG({erande_f.snd});
type:=
@select({モデムのタイプは？},
,{im({01200n})},
{ １２００ ＭＮＰなし },{im({01200n})},
{ ２４００ ＭＮＰなし },{im({02400n})},
{ ２４００(端末速度2400) ＭＮＰあり },{im({02400m})},
{ ２４００(端末速度9600) ＭＮＰあり },{im({09600m})},
{ ９６００(端末速度19800) ＭＮＰあり },{im({19200m})},
{ １４４００(端末速度19200) ＭＮＰあり },{im({19200m})},
{ １４４００(端末速度38400) ＭＮＰあり },{im({38400m})},
{ １４４００(端末速度57600) ＭＮＰあり },{im({57600m})}
);
SNDMSG({nyuryo_f.snd});
footnote({ＡＴコマンドを直接指定してネ☆});
%a @input({ATコマンドを設定して下さい（ 例：ATDPX3\N3\V1\Q3\J0）},,
{AT}|@head(modem,{/}));
case (a <> {},{Yes},
{case (@getchar(a,1,2),{AT},
{case(a=@head(a,{\}),{Yes},
{modem:={X3}|{/}|
@getchar(a,3,999)|{/AT直接指定_}|type;}, ,{modem:=@getchar(a,3,999)|{/}|
{/AT直接指定_}|type;})});
},{No},{setAT});
};
%FUJITSU{
SNDMSG({erande_f.snd});
select({モデムの機種を選んでネ☆ 現在は『}|@ModemName|{』},
,,
{富士通 内蔵1200}, {modem:={X3//内蔵1200_01200n}},
{富士通 内蔵2400}, {modem:={X3/\N3\V1\Q3\J0%C0/内蔵2400_09600m}},
{富士通 PM1200F }, {modem:={X3//PM1200F_01200n}},
{富士通 PM2400F }, {modem:={X3/\N3\V1\Q2\J0%C0/PM2400F_09600m}},
{富士通 PM2400FII}, {modem:={X3/\N7\V2\Q2\J0%C0/PM2400FII_09600m}},
{富士通 OAMD-301 }, {modem:={X3&D2/\N3\V2\Q2\J0/OAMD-301_09600m}},
{ATコマンド直設定 }, {setAT}
)};
%AIWA {
SNDMSG({erande_f.snd});
select({モデムの機種を選んでネ☆ 現在は『}|@ModemName|{』},
,,
{ AIWA PV-A1200}, {modem:={X3//PV-A1200_01200n}},
{ AIWA PV-M12}, {modem:={X3/\N3\Q3\J0\V1/PV-M12_01200n}},
{ AIWA PV-A2400}, {modem:={X3&D2/&S1&C1/PV-A2400_02400n}},
{AIWA PV-A2400MNP4}, {modem:={&D2/&M4\Q1/PV-A2400MNP4_09600m}},
{ AIWA PV-A24V42}, {modem:={X3&D2/\N3\Q3\J0/PV-A24V42_09600m}},
{ AIWA PV-M24}, {modem:={X3&D2/\N3\Q3\J0\V2/PV-M24_09600m}},
{ AIWA PV-M24M5}, {modem:={X3&D2/\N3\Q3\J0\V2/PV-M24M5_09600m}},
{ AIWA PV-M24B5}, {modem:={X3&D2/\N3\Q3\J0\V2%C0/PV-M24B5_09600m}},
{ AIWA PV-M24VM5}, {modem:={X3&D2/\N3\Q3\J0\V2%C0/PV-M24_09600m}},
{ AIWA PV-A24MNP5}, {modem:={X3&D2/\N3\Q3\J0%C0/PV-A24MNP5_09600m}},
{ AIWA PV-A96V5}, {modem:={X3&D2/\N3\Q3\J0\V2%C0/PV-A96V5_09600m}},
{ATコマンド直設定 }, {setAT}
)};
%EPSON {
SNDMSG({erande_f.snd});
select({モデムの機種を選んでネ☆ 現在は『}|@ModemName|{』},
,,
{ EPSON SR-120S }, {modem:={X3//SR-120S_01200n}},
{ EPSON SR-240S }, {modem:={X3//SR-120S_01200n}},
{ EPSON SR-120AT}, {modem:={X3/B1/SR-120S_01200n}},
{ EPSON SR-240AT}, {modem:={X3//SR-240AT_02400n}},
{ EPSON SR-240V }, {modem:={X3\V2/N1&K1%C0/SR-240V_09600m}},
{ATコマンド直設定 }, {setAT}
)};
%OMRON {
SNDMSG({erande_f.snd});
select({モデムの機種を選んでネ☆ 現在は『}|@ModemName|{』},
,,
{OMRON MD1200}, {modem:={X3//MD1200_01200n}},
{OMRON MD12FS}, {modem:={X3//MD12FS_01200n}},
{OMRON MD2400A}, {modem:={X3/\N3\V1\Q2\J0/MD2400A_02400m}},
{OMRON MD2400F}, {modem:={X3/\N3\V2\Q2\J0/MD2400F_02400m}},
{OMRON MD24FB5V}, {modem:={X3/\N3\Q2\J0\V2%C0/MD24FB5V_09600m}},
{OMRON MD24FP4}, {modem:={X3/\N3\Q2\J0/MD24FP4_02400m}},
{OMRON MD24FP4II}, {modem:={X3&P2/\N3\Q2\J0/MD24FP4II_09600m}},
{OMRON MD24FP5V}, {modem:={X3/\N3\Q2\J0\V2%C0/MD24FP5V_09600m}},
{OMRON MD24FS4}, {modem:={X3/\N3\Q2\J0/MD24FS4_02400m}},
{OMRON MD24FS5}, {modem:={X3/\N3\Q2\J0/MD24FS5_02400m}},
{OMRON MD24FN5}, {modem:={X3/\N3\Q2\J0\V2/MD24FS4_02400m}},
{OMRON MD24FS7}, {modem:={X3/\N3\Q2\J0\V2/MD24FS7_02400m}},
{OMRON MD96FB5V},
{modem:={X3&E0/\N3&M5*C1\D0\J0\V1/MD96FB5V_09600m}},
{OMRON MD96FS5},
{modem:={X3&E0/\N3&M5*C1\D0\J0\V1/MD96FS5_09600m}},
{ATコマンド直設定 }, {setAT}
)};
%INTEGRAN{
SNDMSG({erande_f.snd});
select({モデムの機種を選んでネ☆ 現在は『}|@ModemName|{』},
,,
{INTEGRAN 通信POCO },{modem:={X3/\V1%C0/INTEGURAN_09600m}},
{通信POCO(端末固定)},{modem:={X3/\N3\J0\V1%C0/INTEGRAN_09600m}},
{ ATコマンド直設定 }, {setAT}
)};
%OKI{
SNDMSG({erande_f.snd});
select({モデムの機種を選んでネ☆ 現在は『}|@ModemName|{』},
,,
{PCLINK224/V42.bis },{modem:={X3/\N3\J0\V1&E0W2/PCLINK224_09600m}},
{PCLINK296/V42.bis },{modem:={X3/\N3\J0\V1&E0W2/PCLINK296_09600m}},
{ ATコマンド直設定 }, {setAT}
)};
%NEC {
SNDMSG({erande_f.snd});
select({モデムの機種を選んでネ☆ 現在は『}|@ModemName|{』},
,,
{NEC COMSTAR 1212AT},{modem:={X/&C1/COMSTAR 1212AT_01200n}},
{NEC COMSTARZ CULB 24/4},{modem:={X3/\V1%X0/COMSTAR CULB 24-4_02400m}},
{NEC COMSTARZ 2424/4},{modem:={X3/\V1%X0/COMSTAR 2424-4_02400m}},
{NEC COMSTARZ 2424/5},{modem:={X3/\V1%X0/COMSTAR 2424-5_02400m}},
{NEC COMSTAR 2424AT/4},
{modem:={X3/Q4\T5&D2&G0&S0/COMSTAR 2424AT4_02400m}},
{NEC COMSTAR 2424AT/5},
{modem:={X3/Q4\T5&D2&G0&S0/COMSTAR 2424AT5_02400m}},
{ ATコマンド直設定 },{setAT}
)};
%SONY {
SNDMSG({erande_f.snd});
select({モデムの機種を選んでネ☆ 現在は『}|@ModemName|{』},
,,
{SONY IT-V1200},{modem:={X3//IT-V1200_01200n}},
{SONY IT-V2400},{modem:={X3//IT-V2400_02400m}},
{ATコマンド直設定 },{setAT}
)};
%MICROCORE{
SNDMSG({erande_f.snd});
select({モデムの機種を選んでネ☆ 現在は『}|@ModemName|{』},
,,
{MICROCORE MC24PA5},{modem:={X3/\N3\Q2\J0\X1%C0/MC24PA5_09600m}},
{},{},
{ATコマンド直設定 },{setAT}
)};
%setMODEM{
%ModemName
{case(modem,{},{im({未設定})},,{head(@tail(modem,{/}),{_})})};
SNDMSG({erande_f.snd});
footnote({モデム･メーカー選択処理中,,,♪});
select({モデム･メーカーを選んでネ☆},
,,
{ ＦＵＪＩＴＳＵ },{FUJITSU}, { ＡＩＷＡ },{AIWA},
{ ＯＭＲＯＮ },{OMRON}, { ＥＰＳＯＮ },{EPSON},
{ ＮＥＣ },{NEC}, { ＳＯＮＹ },{SONY},
{ マイクロコア },{MICROCORE},{ ＯＫＩ },{OKI},
{ インテグラン },{INTEGRAN},{ ATコマンド直設定 },{setAT}
)};
setMODEM;
}; /* end of setmodem */
%settelno{
/* #SETPOINT.PLP;*/
%road112{
/* ＲＯＡＤ１の電話番号一覧選択 */
%setTEL {
SNDMSG({nyuryo_f.snd});
footnote({ROAD1 }|BPS|{BPSｱｸｾｽ･ﾎﾟｲﾝﾄの電話番号を直接入力処理中,,,♪});
%a @input({ROAD1の電話番号を入力してネ☆（入力後は｢ﾘﾀｰﾝｷｰ↓｣）},,
@head(ROAD1,{/}));
case (a<>{}, {Yes},{ROAD1:=@getchar(a,1,80)|{/}|BPS;},
{No},{setTEL});
};
%HOKKAI1{
SNDMSG({erande_f.snd});
select({ROAD1の電話番号を選択してネ☆（現在は『}|ROAD1|{』）},
,,
{ 札 幌 },{ROAD1:={011-898-4909/1200}},
{ 函 館 },{ROAD1:={0138-54-7061/1200}},
{ 室 蘭 },{ROAD1:={0143-43-1631/1200}},
{ 釧 路 },{ROAD1:={0154-22-6177/1200}},
{ 帯 広 },{ROAD1:={0155-25-7311/1200}},
{ 北 見 },{ROAD1:={0157-24-4282/1200}},
{ 旭 川 },{ROAD1:={0166-25-7306/1200}},
{直接入力},{setTEL}
);
};
%TOHOKU1{
SNDMSG({erande_f.snd});
select({ROAD1の電話番号を選択してネ☆（現在は『}|ROAD1|{』）},
,,
{ 弘 前 },{ROAD1:={0172-37-4511/1200}},
{ 青 森 },{ROAD1:={0177-29-1944/1200}},
{ 八 戸 },{ROAD1:={0178-24-4065/1200}},
{ 秋 田 },{ROAD1:={0188-31-4161/1200}},
{ 盛 岡 },{ROAD1:={0196-51-4222/1200}},
{ 北 上 },{ROAD1:={0197-63-7301/1200}},
{ 仙 台 },{ROAD1:={022-221-5618/1200}},
{ 酒 田 },{ROAD1:={0234-24-9571/1200}},
{ 山 形 },{ROAD1:={0236-31-2448/1200}},
{会津若松},{ROAD1:={0242-24-3509/1200}},
{ 福 島 },{ROAD1:={0245-22-5951/1200}},
{ いわき },{ROAD1:={0246-23-4576/1200}},
{ 郡 山 },{ROAD1:={0249-25-0902/1200}},
{直接入力},{setTEL}
);
};
%NKANTO1{
SNDMSG({erande_f.snd});
select({ROAD1の電話番号を選択してネ☆（現在は『}|ROAD1|{』）},
,,
{ 前 橋 },{ROAD1:={0272-52-9753/1200}},
{ 高 崎 },{ROAD1:={0273-27-9174/1200}},
{ 館 林 },{ROAD1:={0276-75-4825/1200}},
{ 小 山 },{ROAD1:={0285-23-1130/1200}},
{ 宇都宮 },{ROAD1:={0286-38-9951/1200}},
{ 水 戸 },{ROAD1:={0292-27-6929/1200}},
{ 日 立 },{ROAD1:={0294-21-8413/1200}},
{ 筑 波 },{ROAD1:={0298-55-4330/1200}},
{ 所 沢 },{ROAD1:={0429-28-0812/1200}},
{ 浦 和 },{ROAD1:={048-825-7942/1200}},
{ 熊 谷 },{ROAD1:={0485-24-7362/1200}},
{ 越 谷 },{ROAD1:={0489-62-2680/1200}},
{ 川 越 },{ROAD1:={0492-41-5381/1200}},
{ 本 庄 },{ROAD1:={0495-24-2175/1200}},
{直接入力},{setTEL}
);
};
%SKANTO1{
SNDMSG({erande_f.snd});
select({ROAD1の電話番号を選択してネ☆（現在は『}|ROAD1|{』）},
,,
{ 東 京 },{ROAD1:={03-3739-9241/1200}},
{ 稲 城 },{ROAD1:={0423-78-6273/1200}},
{ 調 布 },{ROAD1:={0424-81-0556/1200}},
{ 立 川 },{ROAD1:={0425-24-4212/1200}},
{ 町 田 },{ROAD1:={0427-99-2375/1200}},
{ 千 葉 },{ROAD1:={043-246-8131/1200}},
{ 君 津 },{ROAD1:={0439-52-8290/1200}},
{ 川 崎 },{ROAD1:={044-755-4911/1200}},
{ 横 浜 },{ROAD1:={045-316-4201/1200}},
{ 厚 木 },{ROAD1:={0462-29-6017/1200}},
{ 平 塚 },{ROAD1:={0463-21-5841/1200}},
{ 小田原 },{ROAD1:={0465-23-1562/1200}},
{ 藤 沢 },{ROAD1:={0466-22-9882/1200}},
{ 横須賀 },{ROAD1:={0468-27-0412/1200}},
{ 柏 },{ROAD1:={0471-46-3153/1200}},
{ 松 戸 },{ROAD1:={0473-66-2621/1200}},
{ 船 橋 },{ROAD1:={0474-37-5241/1200}},
{直接入力},{setTEL}
);
};
%HOKURIK1{
SNDMSG({erande_f.snd});
select({ROAD1の電話番号を選択してネ☆（現在は『}|ROAD1|{』）},
,,
{ 新 潟 },{ROAD1:={025-246-3613/1200}},
{ 上 越 },{ROAD1:={0255-26-3680/1200}},
{ 長 岡 },{ROAD1:={0258-32-2521/1200}},
{ 長 野 },{ROAD1:={0262-26-9852/1200}},
{ 松 本 },{ROAD1:={0263-32-8903/1200}},
{ 諏 訪 },{ROAD1:={0266-52-8377/1200}},
{ 佐 久 },{ROAD1:={0267-63-3629/1200}},
{ 金 沢 },{ROAD1:={0762-64-1390/1200}},
{ 富 山 },{ROAD1:={0764-42-6437/1200}},
{ 福 井 },{ROAD1:={0776-24-8420/1200}},
{直接入力},{setTEL}
);
};
%TYUBU1{
SNDMSG({erande_f.snd});
select({ROAD1の電話番号を選択してネ☆（現在は『}|ROAD1|{』）},
,,
{ 名古屋 },{ROAD1:={052-231-2579/1200}},
{ 浜 松 },{ROAD1:={053-456-8845/1200}},
{ 豊 橋 },{ROAD1:={0532-53-7159/1200}},
{ 静 岡 },{ROAD1:={054-252-2494/1200}},
{ 甲 府 },{ROAD1:={0552-33-9161/1200}},
{ 沼 津 },{ROAD1:={0559-23-5038/1200}},
{ 岡 崎 },{ROAD1:={0564-26-0964/1200}},
{ 豊 田 },{ROAD1:={0565-27-9688/1200}},
{ 刈 谷 },{ROAD1:={0566-25-2139/1200}},
{ 春日井 },{ROAD1:={0568-51-3542/1200}},
{ 高 山 },{ROAD1:={0577-32-8607/1200}},
{ 岐 阜 },{ROAD1:={0582-53-9455/1200}},
{ 大 垣 },{ROAD1:={0584-81-4491/1200}},
{ 一 宮 },{ROAD1:={0586-46-0704/1200}},
{ 津 },{ROAD1:={0592-23-1418/1200}},
{ 四日市 },{ROAD1:={0593-53-8249/1200}},
{ 伊 勢 },{ROAD1:={0596-27-5547/1200}},
{直接入力},{setTEL}
);
};
%KINKI1{
SNDMSG({erande_f.snd});
select({ROAD1の電話番号を選択してネ☆（現在は『}|ROAD1|{』）},
,,
{ 大 阪 },{ROAD1:={06-947-5460/1200}},
{ 枚 方 },{ROAD1:={0720-46-2390/1200}},
{ 堺 },{ROAD1:={0722-27-5052/1200}},
{ 茨 木 },{ROAD1:={0726-24-6544/1200}},
{ 池 田 },{ROAD1:={0727-53-8834/1200}},
{ 和歌山 },{ROAD1:={0734-74-8155/1200}},
{ 奈 良 },{ROAD1:={0742-34-3639/1200}},
{ 彦 根 },{ROAD1:={0749-24-7298/1200}},
{ 京 都 },{ROAD1:={075-255-6069/1200}},
{ 福知山 },{ROAD1:={0773-24-1507/1200}},
{ 大 津 },{ROAD1:={0775-23-5673/1200}},
{ 神 戸 },{ROAD1:={078-392-7398/1200}},
{ 姫 路 },{ROAD1:={0792-88-7931/1200}},
{ 加古川 },{ROAD1:={0794-35-7229/1200}},
{ 西 宮 },{ROAD1:={0798-66-4435/1200}},
{直接入力},{setTEL}
);
};
%CHUGOKU1{
SNDMSG({erande_f.snd});
select({ROAD1の電話番号を選択してネ☆（現在は『}|ROAD1|{』）},
,,
{ 広 島 },{ROAD1:={082-223-7643/1200}},
{ 下 関 },{ROAD1:={0832-32-5101/1200}},
{ 徳 山 },{ROAD1:={0834-31-5321/1200}},
{ 宇 部 },{ROAD1:={0836-22-4845/1200}},
{ 山 口 },{ROAD1:={0839-21-2765/1200}},
{ 福 山 },{ROAD1:={0849-31-7240/1200}},
{ 松 江 },{ROAD1:={0852-26-9312/1200}},
{ 鳥 取 },{ROAD1:={0857-24-5146/1200}},
{ 米 子 },{ROAD1:={0859-33-0061/1200}},
{ 岡 山 },{ROAD1:={086-226-5544/1200}},
{直接入力},{setTEL}
);
};
%SHIKOKU1{
SNDMSG({erande_f.snd});
select({ROAD1の電話番号を選択して☆ネ（現在は『}|ROAD1|{』）},
,,
{ 高 松 },{ROAD1:={0878-51-0462/1200}},
{ 徳 島 },{ROAD1:={0886-55-2840/1200}},
{ 高 知 },{ROAD1:={0888-23-5477/1200}},
{ 松 山 },{ROAD1:={0899-33-9914/1200}},
{直接入力},{setTEL}
);
};
%KYUSYU1{
SNDMSG({erande_f.snd});
select({ROAD1の電話番号を選択してネ☆（現在は『}|ROAD1|{』）},
,,
{ 福 岡 },{ROAD1:={092-473-6576/1200}},
{ 北九州 },{ROAD1:={093-511-2421/1200}},
{ 久留米 },{ROAD1:={0942-37-4035/1200}},
{ 大牟田 },{ROAD1:={0944-52-7870/1200}},
{ 佐 賀 },{ROAD1:={0952-25-3750/1200}},
{ 佐世保 },{ROAD1:={0956-46-1981/1200}},
{ 長 崎 },{ROAD1:={0958-24-4967/1200}},
{ 熊 本 },{ROAD1:={096-324-6502/1200}},
{ 大 分 },{ROAD1:={0975-34-3724/1200}},
{ 宮 崎 },{ROAD1:={0985-29-4430/1200}},
{ 鹿児島 },{ROAD1:={0992-24-4830/1200}},
{直接入力},{setTEL}
);
};
%OKINAWA1{
SNDMSG({erande_f.snd});
select({ROAD1の電話番号を選択してネ☆（現在は『}|ROAD1|{』）},
,,
{ 那 覇 },{ROAD1:={098-863-4779/1200}},
{直接入力},{setTEL}
);
};
%setNODE1{
SNDMSG({erande_f.snd});
footnote({ＲＯＡＤ１アクセス･ポイントの電話番号を設定処理中,,,♪});
select({ ＲＯＡＤ１アクセス･ポイント地域を選択してネ☆},
,,
{ 北海道 },{HOKKAI1}, { 東 北 },{TOHOKU1},
{ 北関東 },{NKANTO1}, { 南関東 },{SKANTO1},
{ 北信越 },{HOKURIK1}, { 中 部 },{TYUBU1},
{ 近 畿 },{KINKI1}, { 中 国 },{CHUGOKU1},
{ 四 国 },{SHIKOKU1}, { 九 州 },{KYUSYU1},
{ 沖 縄 },{OKINAWA1},
{直接入力},{setTEL}
);
};
setNODE1;
}; /* end of road112 */
%road124{
/* ＲＯＡＤ１の電話番号一覧選択 */
%setTEL {
SNDMSG({nyuryo_f.snd});
footnote({ROAD1 }|BPS|{BPSｱｸｾｽ･ﾎﾟｲﾝﾄの電話番号を直接入力処理中,,,♪});
%a @input({ROAD1の電話番号を入力してネ☆（入力後は｢ﾘﾀｰﾝｷｰ↓｣）},,
@head(ROAD1,{/}));
case (a<>{}, {Yes},{ROAD1:=@getchar(a,1,80)|{/}|BPS;},
{No},{setTEL});
};
%HOKKAI2{
SNDMSG({erande_f.snd});
select({ROAD1の電話番号を選択してネ☆（現在は『}|ROAD1|{』）},
,,
{ 札 幌 },{ROAD1:={011-898-4965/2400}},
{ 函 館 },{ROAD1:={0138-51-7964/2400}},
{ 釧 路 },{ROAD1:={0154-22-9459/2400}},
{ 帯 広 },{ROAD1:={0155-25-7181/2400}},
{ 北 見 },{ROAD1:={0157-23-8051/2400}},
{ 旭 川 },{ROAD1:={0166-26-9630/2400}},
{直接入力},{setTEL}
);
};
%TOHOKU2{
SNDMSG({erande_f.snd});
select({ROAD1の電話番号を選択してネ☆（現在は『}|ROAD1|{』）},
,,
{ 青 森 },{ROAD1:={0177-29-1951/2400}},
{ 八 戸 },{ROAD1:={0178-45-4971/2400}},
{ 秋 田 },{ROAD1:={0188-31-4120/2400}},
{ 盛 岡 },{ROAD1:={0196-51-1101/2400}},
{ 仙 台 },{ROAD1:={022-266-7814/2400}},
{ 酒 田 },{ROAD1:={0234-26-7035/2400}},
{ 山 形 },{ROAD1:={0236-32-4457/2400}},
{会津若松},{ROAD1:={0242-24-9202/2400}},
{ 福 島 },{ROAD1:={0245-23-2971/2400}},
{ いわき },{ROAD1:={0246-22-9581/2400}},
{ 郡 山 },{ROAD1:={0249-25-9384/2400}},
{直接入力},{setTEL}
);
};
%NKANTO2{
SNDMSG({erande_f.snd});
select({ROAD1の電話番号を選択してネ☆（現在は『}|ROAD1|{』）},
,,
{ 前 橋 },{ROAD1:={0272-54-0900/2400}},
{ 高 崎 },{ROAD1:={0273-27-8335/2400}},
{ 館 林 },{ROAD1:={0276-75-0553/2400}},
{ 小 山 },{ROAD1:={0285-24-5601/2400}},
{ 宇都宮 },{ROAD1:={0286-38-9909/2400}},
{ 水 戸 },{ROAD1:={0292-21-6901/2400}},
{ 筑 波 },{ROAD1:={0298-55-2291/2400}},
{ 所 沢 },{ROAD1:={0429-28-8218/2400}},
{ 浦 和 },{ROAD1:={048-825-5700/2400}},
{ 熊 谷 },{ROAD1:={0485-24-1831/2400}},
{ 越 谷 },{ROAD1:={0489-66-8001/2400}},
{ 川 越 },{ROAD1:={0492-41-7051/2400}},
{直接入力},{setTEL}
);
};
%SKANTO2{
SNDMSG({erande_f.snd});
select({ROAD1の電話番号を選択してネ☆（現在は『}|ROAD1|{』）},
,,
{ 東 京 },{ROAD1:={03-3739-9120/2400}},
{ 稲 城 },{ROAD1:={0423-78-6514/2400}},
{ 調 布 },{ROAD1:={0424-89-3450/2400}},
{ 立 川 },{ROAD1:={0425-22-0178/2400}},
{ 町 田 },{ROAD1:={0427-99-2148/2400}},
{ 千 葉 },{ROAD1:={043-248-9691/2400}},
{ 川 崎 },{ROAD1:={044-752-4421/2400}},
{ 横 浜 },{ROAD1:={045-323-2852/2400}},
{ 厚 木 },{ROAD1:={0462-29-5116/2400}},
{ 平 塚 },{ROAD1:={0463-21-5846/2400}},
{ 小田原 },{ROAD1:={0465-24-1602/2400}},
{ 藤 沢 },{ROAD1:={0466-22-1037/2400}},
{ 横須賀 },{ROAD1:={0468-24-8078/2400}},
{ 柏 },{ROAD1:={0471-46-4175/2400}},
{ 松 戸 },{ROAD1:={0473-66-7641/2400}},
{ 船 橋 },{ROAD1:={0474-37-5392/2400}},
{直接入力},{setTEL}
);
};
%HOKURIK2{
SNDMSG({erande_f.snd});
select({ROAD1の電話番号を選択してネ☆（現在は『}|ROAD1|{』）},
,,
{ 新 潟 },{ROAD1:={025-244-4125/2400}},
{ 長 野 },{ROAD1:={0262-26-1521/2400}},
{ 松 本 },{ROAD1:={0263-32-9921/2400}},
{ 金 沢 },{ROAD1:={0762-63-7131/2400}},
{ 富 山 },{ROAD1:={0764-42-7922/2400}},
{ 福 井 },{ROAD1:={0776-24-9986/2400}},
{直接入力},{setTEL}
);
};
%TYUBU2{
SNDMSG({erande_f.snd});
select({ROAD1の電話番号を選択してネ☆（現在は『}|ROAD1|{』）},
,,
{ 名古屋 },{ROAD1:={052-204-2261/2400}},
{ 浜 松 },{ROAD1:={053-456-9812/2400}},
{ 豊 橋 },{ROAD1:={0532-56-0712/2400}},
{ 静 岡 },{ROAD1:={054-273-1704/2400}},
{ 甲 府 },{ROAD1:={0552-37-9119/2400}},
{ 沼 津 },{ROAD1:={0559-24-6646/2400}},
{ 岡 崎 },{ROAD1:={0564-23-8848/2400}},
{ 豊 田 },{ROAD1:={0565-26-4360/2400}},
{ 刈 谷 },{ROAD1:={0566-25-7008/2400}},
{ 春日井 },{ROAD1:={0568-51-3601/2400}},
{ 岐 阜 },{ROAD1:={0582-53-9691/2400}},
{ 大 垣 },{ROAD1:={0584-82-0445/2400}},
{ 一 宮 },{ROAD1:={0586-46-2115/2400}},
{ 津 },{ROAD1:={0592-23-1415/2400}},
{ 四日市 },{ROAD1:={0593-53-1582/2400}},
{直接入力},{setTEL}
);
};
%KINKI2{
SNDMSG({erande_f.snd});
select({ROAD1の電話番号を選択してネ☆（現在は『}|ROAD1|{』）},
,,
{ 大 阪 },{ROAD1:={06-949-2572/2400}},
{ 堺 },{ROAD1:={0722-22-8540/2400}},
{ 和歌山 },{ROAD1:={0734-74-8163/2400}},
{ 奈 良 },{ROAD1:={0742-36-0857/2400}},
{ 京 都 },{ROAD1:={075-255-0524/2400}},
{ 大 津 },{ROAD1:={0775-23-5416/2400}},
{ 神 戸 },{ROAD1:={078-332-2127/2400}},
{ 姫 路 },{ROAD1:={0792-88-9744/2400}},
{ 加古川 },{ROAD1:={0794-35-7944/2400}},
{直接入力},{setTEL}
);
};
%CHUGOKU2{
SNDMSG({erande_f.snd});
select({ROAD1の電話番号を選択してネ☆（現在は『}|ROAD1|{』）},
,,
{ 広 島 },{ROAD1:={082-223-5749/2400}},
{ 徳 山 },{ROAD1:={0834-32-5461/2400}},
{ 宇 部 },{ROAD1:={0836-22-6613/2400}},
{ 山 口 },{ROAD1:={0839-24-9485/2400}},
{ 松 江 },{ROAD1:={0852-26-5771/2400}},
{ 鳥 取 },{ROAD1:={0857-22-5121/2400}},
{ 岡 山 },{ROAD1:={086-226-6241/2400}},
{直接入力},{setTEL}
);
};
%SHIKOKU2{
SNDMSG({erande_f.snd});
select({ROAD1の電話番号を選択してネ☆（現在は『}|ROAD1|{』）},
,,
{ 高 松 },{ROAD1:={0878-23-4667/2400}},
{ 徳 島 },{ROAD1:={0886-55-9450/2400}},
{ 高 知 },{ROAD1:={0888-24-6403/2400}},
{ 松 山 },{ROAD1:={0899-32-9640/2400}},
{直接入力},{setTEL}
);
};
%KYUSYU2{
SNDMSG({erande_f.snd});
select({ROAD1の電話番号を選択してネ☆（現在は『}|ROAD1|{』）},
,,
{ 福 岡 },{ROAD1:={092-474-3708/2400}},
{ 北九州 },{ROAD1:={093-531-7320/2400}},
{ 久留米 },{ROAD1:={0942-37-3977/2400}},
{ 佐 賀 },{ROAD1:={0952-25-2110/2400}},
{ 長 崎 },{ROAD1:={0958-24-5750/2400}},
{ 熊 本 },{ROAD1:={096-324-1911/2400}},
{ 大 分 },{ROAD1:={0975-37-4480/2400}},
{ 宮 崎 },{ROAD1:={0985-29-9034/2400}},
{ 鹿児島 },{ROAD1:={0992-24-4848/2400}},
{直接入力},{setTEL}
);
};
%OKINAWA2{
SNDMSG({erande_f.snd});
select({ROAD1の電話番号を選択してネ☆（現在は『}|ROAD1|{』）},
,,
{ 那 覇 },{ROAD1:={098-861-7176/2400}},
{直接入力},{setTEL}
);
};
%setNODE2{
SNDMSG({erande_f.snd});
footnote({ＲＯＡＤ１アクセスポイントの電話番号を設定処理中,,,♪});
select({ ＲＯＡＤ１アクセス･ポイント地域を選択してネ☆},
,,
{ 北海道 },{HOKKAI2}, { 東 北 },{TOHOKU2},
{ 北関東 },{NKANTO2}, { 南関東 },{SKANTO2},
{ 北信越 },{HOKURIK2}, { 中 部 },{TYUBU2},
{ 近 畿 },{KINKI2}, { 中 国 },{CHUGOKU2},
{ 四 国 },{SHIKOKU2}, { 九 州 },{KYUSYU2},
{ 沖 縄 },{OKINAWA2},
{直接入力},{setTEL}
);
};
setNODE2;
}; /* end of road124 */
%road2{
/* ＲＯＡＤ２の電話番号一覧選択 */
%setTEL {
SNDMSG({erande_f.snd});
footnote({ROAD2 ｱｸｾｽ･ﾎﾟｲﾝﾄの電話番号を直接入力処理中,,,♪});
%a @input({ROAD2の電話番号を入力してネ☆（入力後は｢ﾘﾀｰﾝｷｰ↓｣）},,
ROAD2);
case (a<>{}, {Yes},{ROAD2:=@getchar(a,1,80)},
{No},{setTEL});
};
%HOKKAIDO{
SNDMSG({erande_f.snd});
select({ROAD2の電話番号を選択してネ☆（現在は『}|ROAD2|{』）},
,,
{ 札 幌 },{ROAD2:={011-898-3344}},
{ 滝 川 },{ROAD2:={0125-22-4126}},
{ 函 館 },{ROAD2:={0138-56-8214}},
{ 室 蘭 },{ROAD2:={0143-43-2271}},
{ 苫小牧 },{ROAD2:={0144-36-6081}},
{ 網 走 },{ROAD2:={0152-44-9728}},
{ 釧 路 },{ROAD2:={0154-22-1726}},
{ 帯 広 },{ROAD2:={0155-25-7511}},
{ 北 見 },{ROAD2:={0157-25-9103}},
{ 旭 川 },{ROAD2:={0166-24-6801}},
{直接入力},{setTEL}
);
};
%TOHOKU {
SNDMSG({erande_f.snd});
select({ROAD2の電話番号を選択してネ☆（現在は『}|ROAD2|{』）},
,,
{ 弘 前 },{ROAD2:={0172-37-8200}},
{ 青 森 },{ROAD2:={0177-29-1920}},
{ 八 戸 },{ROAD2:={0178-47-3260}},
{ 秋 田 },{ROAD2:={0188-31-6640}},
{ 一 関 },{ROAD2:={0191-26-5701}},
{ 盛 岡 },{ROAD2:={0196-51-4221}},
{ 北 上 },{ROAD2:={0197-64-7636}},
{ 仙 台 },{ROAD2:={022-213-3322}},
{ 石 巻 },{ROAD2:={0225-22-8311}},
{ 酒 田 },{ROAD2:={0234-26-7666}},
{ 山 形 },{ROAD2:={0236-25-6213}},
{ 東 根 },{ROAD2:={0237-43-7780}},
{ 米 沢 },{ROAD2:={0238-23-5748}},
{会津若松},{ROAD2:={0242-32-3190}},
{ 福 島 },{ROAD2:={0245-22-1609}},
{ いわき },{ROAD2:={0246-21-7622}},
{ 郡 山 },{ROAD2:={0249-21-2194}},
{直接入力},{setTEL}
);
};
%NKANTO {
SNDMSG({erande_f.snd});
select({ROAD2の電話番号を選択してネ☆（現在は『}|ROAD2|{』）},
,,
{ 前 橋 },{ROAD2:={0272-54-2300}},
{ 高 崎 },{ROAD2:={0273-27-8955}},
{ 館 林 },{ROAD2:={0276-75-4101}},
{ 桐 生 },{ROAD2:={0277-44-0088}},
{ 那 須 },{ROAD2:={0287-29-3304}},
{ 足 利 },{ROAD2:={0284-73-3711}},
{ 小 山 },{ROAD2:={0285-24-9350}},
{ 宇都宮 },{ROAD2:={0286-38-9999}},
{ 水 戸 },{ROAD2:={0292-28-1393}},
{ 日 立 },{ROAD2:={0294-21-5820}},
{ 下 館 },{ROAD2:={0296-25-6401}},
{ 筑 波 },{ROAD2:={0298-55-0808}},
{ 所 沢 },{ROAD2:={0429-25-6401}},
{ 浦 和 },{ROAD2:={048-825-8920}},
{ 川 口 },{ROAD2:={048-226-0471}},
{ 熊 谷 },{ROAD2:={0485-22-9270}},
{ 越 谷 },{ROAD2:={0489-66-9950}},
{ 川 越 },{ROAD2:={0492-48-1160}},
{ 本 庄 },{ROAD2:={0495-22-7191}},
{直接入力},{setTEL}
);
};
%SKANTO {
SNDMSG({erande_f.snd});
select({ROAD2の電話番号を選択してネ☆（現在は『}|ROAD2|{』）},
,,
{ 千 葉 },{ROAD2:={043-299-3300}},
{ 市 原 },{ROAD2:={0436-42-2291}},
{ 君 津 },{ROAD2:={0439-55-5030}},
{ 川 崎 },{ROAD2:={044-755-4466}},
{ 横 浜 },{ROAD2:={045-323-5511}},
{ 新横浜 },{ROAD2:={045-942-3351}},
{ 厚 木 },{ROAD2:={0462-50-3260}},
{ 平 塚 },{ROAD2:={0463-24-9140}},
{ 小田原 },{ROAD2:={0465-24-4130}},
{ 藤 沢 },{ROAD2:={0466-24-6641}},
{ 横須賀 },{ROAD2:={0468-24-5272}},
{ 柏 },{ROAD2:={0471-46-4090}},
{ 松 戸 },{ROAD2:={0473-66-1591}},
{ 船 橋 },{ROAD2:={0474-35-8900}},
{ 茂 原 },{ROAD2:={0475-22-1369}},
{ 成 田 },{ROAD2:={0476-23-5181}},
{ 佐 原 },{ROAD2:={0478-52-6250}},
{直接入力},{setTEL}
);
};
%TOKYO {
SNDMSG({erande_f.snd});
select({ROAD2の電話番号を選択してネ☆（現在は『}|ROAD2|{』）},
,,
{ 東 京 },{ROAD2:={03-5703-0222}},
{ 東東京 },{ROAD2:={03-5703-9800}},
{ 南東京 },{ROAD2:={03-5710-5600}},
{ 北東京 },{ROAD2:={03-5710-5100}},
{ 稲 城 },{ROAD2:={0423-78-9911}},
{ 調 布 },{ROAD2:={0424-99-0200}},
{ 立 川 },{ROAD2:={0425-29-7717}},
{ 八王子 },{ROAD2:={0426-22-3141}},
{ 町 田 },{ROAD2:={0427-99-4911}},
{直接入力},{setTEL}
);
};
%HOKURIKU{
SNDMSG({erande_f.snd});
select({ROAD2の電話番号を選択してネ☆（現在は『}|ROAD2|{』）},
,,
{ 新 潟 },{ROAD2:={025-244-7554}},
{ 上 越 },{ROAD2:={0255-26-3683}},
{ 巻 },{ROAD2:={0256-93-6270}},
{ 長 岡 },{ROAD2:={0258-33-8100}},
{ 長 野 },{ROAD2:={0262-26-4430}},
{ 松 本 },{ROAD2:={0263-35-7999}},
{ 飯 田 },{ROAD2:={0265-53-6700}},
{ 諏 訪 },{ROAD2:={0266-52-5525}},
{ 佐 久 },{ROAD2:={0267-63-6391}},
{ 軽井沢 },{ROAD2:={0267-45-2640}},
{ 上 田 },{ROAD2:={0268-25-8800}},
{ 小 松 },{ROAD2:={0761-23-5501}},
{ 金 沢 },{ROAD2:={0762-60-7971}},
{ 富 山 },{ROAD2:={0764-55-3378}},
{ 高 岡 },{ROAD2:={0766-26-9554}},
{ 七 尾 },{ROAD2:={0767-54-0482}},
{ 福 井 },{ROAD2:={0776-24-9528}},
{直接入力},{setTEL}
);
};
%TYUBU {
SNDMSG({erande_f.snd});
select({ROAD2の電話番号を選択してネ☆（現在は『}|ROAD2|{』）},
,,
{ 名古屋 },{ROAD2:={052-222-2911}},
{ 浜 松 },{ROAD2:={053-458-5596}},
{ 豊 橋 },{ROAD2:={0532-53-9511}},
{ 静 岡 },{ROAD2:={054-272-4011}},
{ 清 水 },{ROAD2:={0543-67-2181}},
{ 富 士 },{ROAD2:={0545-60-2600}},
{ 甲 府 },{ROAD2:={0552-26-8700}},
{ 下 田 },{ROAD2:={0558-23-2210}},
{ 沼 津 },{ROAD2:={0559-25-3121}},
{ 岡 崎 },{ROAD2:={0564-26-3731}},
{ 豊 田 },{ROAD2:={0565-26-7981}},
{ 刈 谷 },{ROAD2:={0566-25-1339}},
{ 春日井 },{ROAD2:={0568-51-6500}},
{ 半 田 },{ROAD2:={0569-26-2815}},
{ 多治見 },{ROAD2:={0572-25-6840}},
{ 高 山 },{ROAD2:={0577-32-5401}},
{ 岐 阜 },{ROAD2:={0582-53-7120}},
{ 大 垣 },{ROAD2:={0584-81-0896}},
{ 一 宮 },{ROAD2:={0586-46-2910}},
{ 津 },{ROAD2:={0592-29-1520}},
{ 四日市 },{ROAD2:={0593-54-9304}},
{ 桑 名 },{ROAD2:={0594-23-1851}},
{ 伊 勢 },{ROAD2:={0596-27-1705}},
{直接入力},{setTEL}
);
};
%KINKI {
SNDMSG({erande_f.snd});
select({ROAD2の電話番号を選択してネ☆（現在は『}|ROAD2|{』）},
,,
{ 大 阪 },{ROAD2:={06-941-7006}},
{ 新大阪 },{ROAD2:={06-944-4500}},
{ 枚 方 },{ROAD2:={0720-45-2704}},
{ 堺 },{ROAD2:={0722-27-9436}},
{ 泉佐野 },{ROAD2:={0724-69-4800}},
{ 茨 木 },{ROAD2:={0726-24-9130}},
{ 和歌山 },{ROAD2:={0734-74-8180}},
{ 新 宮 },{ROAD2:={0735-23-2286}},
{ 田 辺 },{ROAD2:={0739-22-4340}},
{ 奈 良 },{ROAD2:={0742-34-4191}},
{ 橿 原 },{ROAD2:={07442-2-9040}},
{ 彦 根 },{ROAD2:={0749-22-4140}},
{ 京 都 },{ROAD2:={075-255-6061}},
{ 福知山 },{ROAD2:={0773-24-2622}},
{ 大 津 },{ROAD2:={0775-25-9750}},
{ 武 生 },{ROAD2:={0778-21-3214}},
{ 神 戸 },{ROAD2:={078-322-0235}},
{ 姫 路 },{ROAD2:={0792-81-1561}},
{ 加古川 },{ROAD2:={0794-35-8734}},
{ 西 宮 },{ROAD2:={0798-64-3661}},
{直接入力},{setTEL}
);
};
%CHUGOKU{
SNDMSG({erande_f.snd});
select({ROAD2の電話番号を選択してネ☆（現在は『}|ROAD2|{』）},
,,
{ 広 島 },{ROAD2:={082-222-7110}},
{ 呉 },{ROAD2:={0823-25-2942}},
{ 下 関 },{ROAD2:={0832-34-6001}},
{ 徳 山 },{ROAD2:={0834-32-8313}},
{ 宇 部 },{ROAD2:={0836-22-5790}},
{ 山 口 },{ROAD2:={0839-23-1085}},
{ 福 山 },{ROAD2:={0849-26-2421}},
{ 松 江 },{ROAD2:={0852-31-9666}},
{ 鳥 取 },{ROAD2:={0857-29-4694}},
{ 米 子 },{ROAD2:={0859-35-4020}},
{ 岡 山 },{ROAD2:={086-221-2207}},
{ 倉 敷 },{ROAD2:={086-462-2770}},
{ 津 山 },{ROAD2:={0868-24-0533}},
{直接入力},{setTEL}
);
};
%SHIKOKU{
SNDMSG({erande_f.snd});
select({ROAD2の電話番号を選択してネ☆（現在は『}|ROAD2|{』）},
,,
{ 高 松 },{ROAD2:={0878-21-0251}},
{ 徳 島 },{ROAD2:={0886-55-2890}},
{ 高 知 },{ROAD2:={0888-24-5454}},
{ 宇和島 },{ROAD2:={0895-45-3255}},
{ 新居浜 },{ROAD2:={0897-32-7225}},
{ 今 治 },{ROAD2:={0898-32-6667}},
{ 松 山 },{ROAD2:={0899-31-9300}},
{直接入力},{setTEL}
);
};
%KYUSYU {
SNDMSG({erande_f.snd});
select({ROAD2の電話番号を選択してネ☆（現在は『}|ROAD2|{』）},
,,
{ 福 岡 },{ROAD2:={092-452-1900}},
{ 北九州 },{ROAD2:={093-541-6116}},
{ 久留米 },{ROAD2:={0942-39-8670}},
{ 大牟田 },{ROAD2:={0944-56-6751}},
{ 佐 賀 },{ROAD2:={0952-24-2584}},
{ 佐世保 },{ROAD2:={0956-46-1006}},
{ 大 村 },{ROAD2:={0957-52-5150}},
{ 長 崎 },{ROAD2:={0958-22-6181}},
{ 熊 本 },{ROAD2:={096-359-6300}},
{ 大 分 },{ROAD2:={0975-33-5455}},
{ 延 岡 },{ROAD2:={0982-34-0370}},
{ 宮 崎 },{ROAD2:={0985-32-0301}},
{ 鹿児島 },{ROAD2:={0992-24-8835}},
{直接入力},{setTEL}
);
};
%OKINAWA{
SNDMSG({erande_f.snd});
select({ROAD2の電話番号を選択してネ☆（現在は『}|ROAD2|{』）},
,,
{ 那 覇 },{ROAD2:={098-866-7179}},
{直接入力},{setTEL}
);
};
%setNODE{
case(ROAD2,{},{ROAD2:={未設定}});
SNDMSG({erande_f.snd});
footnote({ＲＯＡＤ２アクセス･ポイント地域の設定処理中,,,♪});
select({ＲＯＡＤ２アクセス･ポイント地域を選択してネ☆）},
,,
{ 北海道 },{HOKKAIDO}, { 東 北 },{TOHOKU},
{ 北関東 },{NKANTO}, { 南関東 },{SKANTO},
{ 東 京 },{TOKYO}, { 北信越 },{HOKURIKU},
{ 中 部 },{TYUBU}, { 近 畿 },{KINKI},
{ 中 国 },{CHUGOKU}, { 四 国 },{SHIKOKU},
{ 九 州 },{KYUSYU}, { 沖 縄 },{OKINAWA},
{直接入力},{setTEL}
);
};
setNODE;
}; /* end of road2 */
%road3 {
SNDMSG({erande_f.snd});
footnote({ROAD3 ｱｸｾｽ･ﾎﾟｲﾝﾄの電話番号を直接入力処理中,,,♪});
%a @input({ROAD3の電話番号を入力してネ☆（入力後は｢ﾘﾀｰﾝｷｰ↓｣）},,
ROAD2);
case (a<>{}, {Yes},{ROAD2:=@getchar(a,1,80)},
{No},{road3});
};
%SNDMSG {[FileName]
};
var BPS[4];
var ROAD1[64];
var ROAD2[40];
ROAD1 := telno;
ROAD2 := telno;
case(ROAD1,{},{ROAD1:={未設定}; ROAD2:={未設定}});
SNDMSG({erande_f.snd});
footnote({ｱｸｾｽ･ﾎﾟｲﾝﾄＲＯＡＤ１の通信速度の設定処理中,,,♪});
setcdir(current);
select({ ｱｸｾｽ･ﾎﾟｲﾝﾄの種類を指定してネ☆(^_^)/♪\n}|
{ ﾓﾃﾞﾑが2400以上なら2400がお勧め},
,,
{ １２００ＢＰＳ ＲＯＡＤ１},
{BPS:={1200}; road112;},
{ ２４００ＢＰＳ ＲＯＡＤ１},
{BPS:={2400}; road124;},
{ ２４００ＢＰＳ ＲＯＡＤ２},
{ road2; } ,
{ ＲＯＡＤ３},
{ road3; }
);
case( ROAD1 <> telno && ROAD1<>{未設定} ,
{Yes},{
telno := @head(ROAD1,{/});
telty := BPS;
},,{
case( ROAD2 <> telno && ROAD2<>{未設定} ,
{Yes},{
telno := ROAD2;
telty := {2400T};
});
});
}; /* end of settelno */
%setline{
%name @case(line,
{T},{im({プッシュ回線})},
{P},{im({ダイヤル回線})},
,{im({設定なし})} );
select({電話回線のﾀｲﾌﾟを選んで下さい。現在は｢}|name|{｣です｡}
,99999,{},
{ 変更しない },{},
{ プッシュ回線 }, {line :={T} },
{ ダイヤル回線 }, {line :={P} })
};
%setlogd2{
%setlogd2{[old]
%a @input({この格納先は今,使用できませんが?｡ 例｢B:｣},,
old);
case(a<>{},{Yes},{
case(@setcdir2(a),{Yes},{logd := a},
,{setlogd2(a)})
})
};
%a @input({受信データの格納先を設定して下さい。例｢B:｣,｢C:\NIF｣},,
logd);
case(a<>{},{Yes},{
case(@setcdir2(a),{Yes},{logd := a},
,{setlogd2(a)})
})
};
%setlogd{
%cur @case(logd,
{A:},{im({ﾃﾞｨｽｸ装置Ａ(A:)})},
{B:},{im({ﾃﾞｨｽｸ装置Ｂ(B:)})},
{C:},{im({ﾃﾞｨｽｸ装置Ｃ(C:)})},
{D:},{im({ﾃﾞｨｽｸ装置Ｄ(D:)})},
{E:},{im({ﾃﾞｨｽｸ装置Ｅ(E:)})},
{F:},{im({ﾃﾞｨｽｸ装置Ｆ(F:)})},
{G:},{im({ﾃﾞｨｽｸ装置Ｇ(G:)})},
,{im({直接設定:}|logd)}
);
select({文書を格納する装置は？。\n 現在は｢} | cur | {｣}
,99999,{},
{変更しない},{},
{ﾃﾞｨｽｸ装置 Ａ(A:)}, {logd :={A:} },
{ﾃﾞｨｽｸ装置 Ｂ(B:)}, {logd :={B:} },
{ﾃﾞｨｽｸ装置 Ｃ(C:)}, {logd :={C:} },
{ﾃﾞｨｽｸ装置 Ｄ(D:)}, {logd :={D:} },
{ﾃﾞｨｽｸ装置 Ｅ(E:)}, {logd :={E:} },
{ﾃﾞｨｽｸ装置 Ｆ(F:)}, {logd :={F:} },
{ﾃﾞｨﾚｸﾄﾘ･ﾊﾟｽを直接入力する}, {setlogd2}
)
};
%setid{
%setid2{[old]
%a @input({ユーザＩＤは8文字です｡ 例｢BBB00123｣},,
old);
case(a<>{},{Yes},{
case(@nochar(a)=8,{Yes},{id := a},
,{setid2(a)})
})
};
%a @input({NiftyのユーザＩＤを設定して下さい。例｢AAA00321｣},,
id);
case(a<>{},{Yes},{
case(@nochar(a)=8,{Yes},{id := a},
,{setid2(a)})
})
};
%setpass{
%setpassn{
%setpass2{[old]
%a @input({パスワードは8文字以下です｡ 例｢MIKENEKO｣},,
old);
case(a<>{},{Yes},{
case(@nochar(a)<=8,{Yes},{pass := a},
,{setpass2(a)})
})
};
%a @input({Niftyのパスワードを設定して下さい。例｢POCHIINU｣},,
pass);
case(a<>{},{Yes},{
case(@nochar(a)<=8,{Yes},{pass := a},
,{setpass2(a)})
})
};
/* setapass 本体 */
%name @case(pass,
{},{im({ｱｸｾｽ時に入力})},
,{im({予め設定済})} );
select({パスワードを設定しておきますか?。現在は｢}|name|{｣です｡}
,99999,{},
{ 変更しない },{},
{ 他の人が使うので，アクセス時に入力する }, {pass :={} },
{ 専用なので，予め設定しておく }, {setpassn })
}; /* end of setpass */
%setforum{
var dispOne[1000];
%checkForum{[text]
%topname @head(text,{,});
case(@nochar(topname)<=8,
{Yes},{
case(topname ,
text,{im({Yes})},
,{checkForum(@body(text,{,}))})
},,{
footnote({｢} | topname | {｣は8文字以上です});
im({No})
})
};
dispOne := forum;
loop({
%a @input({巡回するﾌｫｰﾗﾑを｢,｣で区切って, 設定して下さい。\n}|
{ 例｢FRAV,FTOWNS1,FWINF｣},,
dispOne);
case(a<>{},{Yes},{
dispOne := a;
case(@checkForum(a),{Yes},{ forum:=a; im({No}) },
,{ im({Yes}) })
},,{im({No})
})
});
footnote({});
};
%sethp{
var dispOne[1000];
%checkHP{[text]
%topname @head(text,{,});
%id @head(topname,{/});
%pass @body(topname,{/},{/});
%hpname @tail(topname,{/});
case(@nochar(id)==8 && @nochar(pass)<=8 && @nochar(hpname)<=8,
{Yes},{
case(topname ,
text,{im({Yes})},
,{checkHP(@body(text,{,}))})
},,{
footnote({｢} | topname | {｣は文字数が合いません｡});
im({No})
})
};
dispOne := hp;
loop({
%a @input({巡回するＨＰを設定して下さい。\n\n}|
{ 形式｢ID/ﾊﾟｽﾜｰﾄﾞ/名前,ID2/ﾊﾟｽﾜｰﾄﾞ2/名前2,,,｣\n}|
{ ID:HP主催者のID ﾊﾟｽﾜｰﾄﾞ:HPのﾊﾟｽﾜｰﾄﾞ \n}|
{ 名前:英字8文字以下の名前(任意の識別名)\n\n}|
{ 例｢PFF00570/HACHIKOU/MOPROOM,}|
{KKK00123/AKITAKEN/FUFUFU｣},,
dispOne);
case(a<>{},{Yes},{
dispOne := a;
case(@checkHP(a),{Yes},{ hp:=a; im({No}) },
,{ im({Yes}) })
},,{im({No})
})
});
footnote({});
};
%setupplt{
%putplp{[id,data]
write(fname, id | @xc({09}) | {:=} | @xc({7b}) |
data | @xc({7d}) | {;\n})
};
var loopon[5];
loop({
loopon := {Yes};
select({設定する項目を選択して下さい。},99999,{},
{設定処理を終了する}, {loopon:={No}},
{ﾊﾟｿｺﾝに接続したﾓﾃﾞﾑの種類(会社名,機種名)},{setmodem},
{最寄りのNiftyのｱｸｾｽ･ﾎﾟｲﾝﾄの種類と電話番号}, {settelno},
/*{最寄りのアクセスポイントの種別(速度･ROAD1/2)}, {settelty},*/
{電話回線の種類(ダイヤル/プッシュ回線)}, {setline},
{受信データの格納先(ドライブ名･パス名)}, {setlogd},
{NiftyのユーザＩＤ}, {setid},
{Niftyのパスワード(通信時に入れることも可能)}, {setpass},
{巡回するフォーラムの設定(複数可能)}, {setforum},
{巡回するＨＰの設定(複数可能)}, {sethp});
/*im(modem={} || telno={} || line={} || id={})*/
im(loopon)
});
%fname current | {\MOPSET.PLP};
case(@filechk( fname ),
{Yes},{delfile( fname )});
putplp({modem},modem);
putplp({telno},telno);
putplp({telty},telty);
putplp({telno2},telno2);
putplp({telty2},telty2);
putplp({line},line);
putplp({id},id);
putplp({pass},pass);
putplp({logd},logd);
putplp({forum},forum);
putplp({hp},hp);
};
/***********************************************************************
*
* MOPTERMの終了処理
*
***********************************************************************/
%stopmop{
select({本当に終了して良いですか？},99999,{},
{ はい },{stopterm},
{ いいえ },{})
};
/***********************************************************************
*
* 全体のメイン処理
*
***********************************************************************/
%current @case(@nochar(@getcdir),
3,{getchar(@getcdir,1,2)},
,{getcdir});
backclr(50,80,50);
footnote({});
stopbit(1);
dataleng({8bit});
xon({Yes});
rscs({Yes});
parity({None});
setoak({J});
click({No});
nattou({Yes});
lineend({CR});
/* オートパイロット停止時にPF12で再起動できるように */
setpf(12,{footnote({Loading..});}|
{setcdir(} | @xc({7b}) | @getcdir | @xc({7d}) | {);}
| {#NYAN.PLT});
logd:={B:}; /* default */
case(@filechk( current | {\MOPSET.PLP}),
{Yes},{#MOPSET.PLP},
{No},{setupplt});
loop({
select({処理を選んで下さい},999999,,
{ 自動通信を行います },autoacc,
{ 受信文書の参照をします },readdoc,
{ 送信文書の作成/更新をします },senddoc,
{ 各種設定を変更します },setupplt,
{ 自動処理を終了します(PF12で再起動) },{stop},
{ ＭＯＰＴＥＲＭを終了します },stopmop);
im({Yes});
})
